home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / B-Business / (c)b4.d64 / typing pract.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  5KB  |  176 lines
  1. 5 REM"ADAPTED BY STEVEN DARNOLD, P.O. BOX 201  ALEXANDRA, NEW ZEALAND[141]
  2. 8 [151]53280,0:[151]53281,0:[153]"LOAD":D$[178]"T Y P I N G     P R A C T I C E         "
  3. 10 [129]I[178]1[164]13[169]3:[151]646,I:[153]:[153]"     ";
  4. 12 [129]J[178]1[164][195](D$):[153][202](D$,J,1);:[129]N[178]1[164][187](1)[172]50:[130]N,J,I
  5. 14 [153]"LISTLOADRETURN":[156]
  6. 16 [134]EX$(60)
  7. 18 LN[178]39:SC[178]55296[171]1024
  8. 20 OC$[178]"INPUT"
  9. 22 T1[178]700
  10. 24 [141] 40
  11. 26 [141] 252
  12. 32 Z1[178]64:R1[178]2
  13. 38 [137]190
  14. 40 A[178]1064:[134]CL(57)
  15. 42 [131]169,258,254,173,92,175,177,179
  16. 44 [131]102,181,183,185,262,260,104,106
  17. 46 [131]88,94,171,96,100,256,90,252,98,250
  18. 48 [129]I[178]1[164]26
  19. 50 [135]CL(I):[130]
  20. 52 [131]336,256,258,260,176,178,180,96,98,100
  21. 54 [129]I[178]48[164]57
  22. 56 [135]CL(I):[130]
  23. 58 [142]
  24. 60 X[178][198](C$)[171]Z1
  25. 62 [139]X[178][171]32[137]66
  26. 64 Y[178]A[170]CL(X):[137]68
  27. 66 Y[178]A[170]339
  28. 68 D[178][194](Y[170]SC):[151]Y[170]SC,1:[142]
  29. 70 [153]"          SPC(
  30. 72 END
  31. 74 PRINT"[147]
  32. 76 [153]"LOAD
  33. 78 PRINT"[151]              "
  34. 80 PRINT"               "
  35. 82 PRINT" [156] [146]  [146]  [146]  [151]  [156] [146]  [146]  [146]  [151]   "
  36. 84 PRINT"              "
  37. 86 PRINT"[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]
  38. 88 [142]
  39. 90 [153]"LOAD"
  40. 92 [153]"                SPC(CLOSESPC(CLOSESPC(CLOSESPC(
  41. 94 PRINT"
  42. 96 [153]"                SPC(CLOSESPC(CLOSESPC(CLOSESPC(
  43. 98 PRINT"
  44. 100 [153]" WAIT  WAIT  WAIT SPC(
  45. 102 PRINT"
  46. 104 [153]"                SPC(CLOSESPC(CLOSESPC(CLOSESPC(
  47. 106 PRINT"
  48. 108 [153]"                SPC(CLOSESPC(CLOSESPC(CLOSESPC(
  49. 110 RETURN
  50. 112 PRINT"[154]";EX$(N);"";
  51. 114 PRINT"[150]";
  52. 116 E=0:C=0:LL=0
  53. 118 FORI=1TOLEN(EX$(N))
  54. 120 C$=MID$(EX$(N),I,1):L=0
  55. 122 GOSUB60
  56. 124 T=TI: T2=T1
  57. 126 GET D$: IF TI-T > T2 GOTO 132
  58. 128 IF D$="" GOTO 126
  59. 130 GOTO 142
  60. 132 T2=100000
  61. 134 PRINT "[154]PRESS [150]F1[154] TO CHECK PROGRESS"
  62. 136 GET D$:IF D$="" GOTO 136
  63. 138 PRINT"[145]                                     "
  64. 140 PRINT "[150][145][145][145][145][145][145][145][145][145]";: FOR KK=1 TO I:PRINT"";:NEXT
  65. 142 IF D$=OC$ GOTO 158
  66. 144 IFD$<>C$THENE=E+1:PRINT"[214][157][150]";:GOTO126
  67. 146 L=TI-T:IFL>300THENL=300
  68. 148 LL=LL+L
  69. 150 POKEY+SC,D
  70. 152 C=C+1:PRINTC$;:NEXT
  71. 154 TC=TC+C:TE=TE+E:TL=TL+LL
  72. 156 RETURN
  73. 158 PRINT"[147]"
  74. 160 PRINT"[159]PRESENT DIFFICULTY  =";:IFINT(N/4)<10THENPRINTINT(N/4):GOTO164
  75. 162 PRINT" NUMERIC"
  76. 164 PRINT:PRINT"CORRECT KEYSTROKES  =";TC
  77. 166 PRINT:PRINT"ERROR KEYSTROKES    =";TE
  78. 168 IF(TC+TE)=0GOTO172
  79. 170 PRINT:PRINT"ERROR/TOTAL         =";INT(TE/(TC+TE)*100);"%"
  80. 172 X=INT(TL/60):Y=INT(X/60):X=X-Y*60
  81. 174 PRINT:PRINT"KEYBOARD TIME USED  =";Y;"MIN."X;"SEC."
  82. 176 IFTL=0GOTO180
  83. 178 PRINT:PRINT"WORDS PER MINUTE    ="INT(TC*720/TL)
  84. 180 PRINT"[154]PRESS [150]F1[154] TO RETURN TO EXERCISES.
  85. 182 [161]D$:[139]D$[178]""[137]182
  86. 184 [139] D$[178]OC$ [167] [137] 14
  87. 186 [137]182
  88. 188 [128]
  89. 190 [139]R1[178]1[137]220
  90. 192 [141]400:[153]"OPENLEVEL OF DIFFICULTY? (0 TO 9)";
  91. 194 [161]D$:[139]D$[178]""[137]194
  92. 196 [139] D$ [179][177] "0" [167] [139] [197](D$)[178]0 [137] 194
  93. 198 [153][197](D$)
  94. 200 N[178]4[172][197](D$)
  95. 202 TL[178]0:TE[178]0:TC[178]0
  96. 204 [141]74
  97. 206 [141]112
  98. 208 [139]E[177]2[137]204
  99. 210 [139]LL[179]1840[167]N[178]N[170]1:[137]216
  100. 212 N[178]N[171]4:[139]N[179]0[167]N[178]0
  101. 214 [137]204
  102. 216 [139]N[177]LN[167]N[178]LN[171]3
  103. 218 [137]204
  104. 220 N[178]40
  105. 222 TL[178]0:TE[178]0:TC[178]0
  106. 224 [141]90:[141]112
  107. 226 [139]E[177]2[137]224
  108. 228 [139]LL[179]1840[167]N[178]N[170]1:[137]234
  109. 230 N[178]N[171]4:[139]N[179]40[167]N[178]40
  110. 232 [137]224
  111. 234 [139]N[177]47[167]N[178]44
  112. 236 [137]224
  113. 238 I[178]43:LN[178]11000
  114. 240 [153]LN[170]I;"EX$("I")=";
  115. 242 [129]J[178]1[164]33
  116. 244 [161]D$:[139]D$[178]""[137]244
  117. 246 [153]D$;:[130]
  118. 248 [153]:I[178]I[170]1:[137]240
  119. 250 [128]
  120. 252 EX$( 0 )[178]"FJFJFJFJJFJFJFJFFDJKFDJKJKFDJKFD
  121. 254 EX$( 1 )="DKDKDKDKKDKDKDKDDSKLDSKLKLDSKLDS
  122. 256 EX$( 2 )[178]"SLSLSLSLLSLSLSLSSAKLLKASLKASKLSA
  123. 258 EX$( 3 )="FDSAJKLLKJASDFSADJLKJSFLJDAJLFJF
  124. 260 EX$( 4 )[178]"SAD ASK LAD ALL DAD FAD ADD LASS
  125. 262 EX$( 5 )="FGJHFGJHFGJHFGJHGJHGFHJGFHJGFHJF
  126. 264 EX$( 6 )[178]"GAS HAD LAG SAG HAG JAG GAGS LAD
  127. 266 EX$( 7 )="HA ADD FADS HAGS SHALL FALL LADS
  128. 268 EX$( 8 )[178]"FRDESWAQFTRFEDWSQATREWQASDFREWQA
  129. 270 EX$( 9 )="JUKILOPLOIKUJHYUJKILOPLPOLKIUJHY
  130. 272 EX$( 10 )[178]"SAWFEDREDFATJUKKILLOPPOKHUGJUGFT
  131. 274 EX$( 11 )="TRFDESWQAGYJHUKILOLPOKIUJHGTYRUI
  132. 276 EX$( 12 )[178]"FOR THE ITS TWO HIS GOT DUG LOTS
  133. 278 EX$( 13 )="SHE ROD OUT YOU ARE LIDS POT SAW
  134. 280 EX$( 14 )[178]"SIR FUR HOW TRY HAD RUT RID WEDS
  135. 282 EX$( 15 )="DID ROD USE PLY WAYS ALE ATE DOG
  136. 284 EX$( 16 )[178]"AZSXDCFVGBHNJMKLJHBNKLOPAWSEDRFT
  137. 286 EX$( 17 )="ZASXDCFVGBHNJMKLLKMJNHBGVFDCSXZA
  138. 288 EX$( 18 )[178]"ZXCVBNMMNBVCXZFCDXSZAJNKMLHBGVMK
  139. 290 EX$( 19 )="LKMJNHBAZSXDCFVGBNJMKLJHNFGVJHBF
  140. 292 EX$( 20 )[178]"AND FIX HILL BUY MAN BED NOR END
  141. 294 EX$( 21 )="CAN CUT NOW SONS OWN BIG NEW CAR
  142. 296 EX$( 22 )[178]"MEW HIM ONE ANY VAN BUT BAD ICES
  143. 298 EX$( 23 )="OFF ODD ANN ALL SEE ZOO CAN BACK
  144. 300 EX$( 24 )[178]"QAZWSXEDCRFVTGBYHNUJMIKOLPPLOQAW
  145. 302 EX$( 25 )="DESWQAIOPJKLLHYTGVBNJUKILOPQAZSX
  146. 304 EX$( 26 )[178]"BGVFRDSWAZAQPLMJUOILPLKMJNUTGVAQ
  147. 306 EX$( 27 )="ZSERFDVCXZAQJHKMLPOLKIJUHYNTGBAQ
  148. 308 EX$( 28 )[178]"THE THAN ABLE VERY GAVE HID COPY
  149. 310 EX$( 29 )="MOVE THEN CAM WHEN HAVE SENT POT
  150. 312 EX$( 30 )[178]"GIVE THEM TIME TRY BOTH NOT MUCH
  151. 314 EX$( 31 )="WANT BEST MAKE TO GO MORE CRY AS
  152. 316 EX$( 32 )[178]"TEUPOYQSHGRJWLDAKQTREOUGJHSDFNJK
  153. 318 EX$( 33 )="IDPFWAKLPOUTWEYDSAHJKLKIGOROPLQA
  154. 320 EX$( 34 )[178]"ATRQJEWLDUYIGKFSHIPOJSUEWTLUONML
  155. 322 EX$( 35 )="FRYGADOQHSKARUILQTPDOYWHGKFJECXN
  156. 324 EX$( 36 )[178]"OTHER THEIR RYE FIELD NORM RIFLE
  157. 326 EX$( 37 )="THINK USUAL WASTE FOR MOVE WOULD
  158. 328 EX$( 38 )[178]"MONTH DATE YEAR MINUTE DAY TIMES
  159. 330 EX$( 39 )="EARLY DELAY ABOUT AXE QUEER MOAN
  160. 332 EX$( 40 )[178]"45645645645646564554645645664546
  161. 334 EX$( 41 )="41415252636314412552366345612345
  162. 336 EX$( 42 )[178]"50053252036524156365201450025641
  163. 338 EX$( 43 )="47475858696974478558966945678945
  164. 340 EX$( 44 )[178]"10203014504758695005647586950145
  165. 342 EX$( 45 )="12345678900546123475869500145650
  166. 344 EX$( 46 )[178]"14150525863696321456563214569874
  167. 346 EX$( 47 )="02021233698521474120234569874520
  168. 348 [142]
  169. 400 [153]"LOADCONTREST YOUR FINGERS ON THE HOME KEYS:
  170. 410 PRINT"[156]                        ";
  171. 412 PRINT" A  S  D  F  J  K  L  : ";
  172. 414 PRINT"                        "
  173. 420 PRINT"[154]DO NOT LOOK AT THE KEYBOARD.  KEEP YOUR   EYES ON THE SCREEN.
  174. 430 [153]"PRESS DEFF1CONT TO CHECK YOUR PROGRESS.
  175. 440 RETURN
  176.